home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / vernon.zip / FACT.PAS < prev    next >
Pascal/Delphi Source File  |  1989-03-01  |  481b  |  19 lines
  1.  
  2.  
  3.        {This function calculates the factorial function for N
  4.        Remember N! := 1 * 2 * 3 * ...*(N-1)* N}
  5.  
  6.      function fact ( N : INTEGER) : real ;
  7.        var COUNT :INTEGER; PRODUCT : REAL; FACTS : REAL;
  8.        begin
  9.           PRODUCT := 1.0;
  10.           for COUNT := 2 to abs( N) do
  11.           PRODUCT := PRODUCT * count;
  12.           FACT := PRODUCT;
  13.           FACTS := PRODUCT;
  14.           {WRITELN ('The value for factorial is : ', FACTS);}
  15.  
  16.         end;
  17.  
  18.  
  19.